home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / parad / feb95 / lc_fig07.gif

< prev

next >

Graphics Interchange Format  |  1995-09-26  |  7KB  |  560x255  |  4-bit (5 colors)

Labels: text | screenshot | display | font | software | number
OCR: DDE-EXP.FSL :: boxPctGauge :: ChangePercentGauge* method ChangePercentGauge(const nNewPct number) var iNewPct SmallInt ; For doing math, we need pct as SmallInt endVar iNewPct = nNewPct .smallInt() boxGauge.Size = point(LongInt (ptTxtPctSize.x( )*iNewPct/100), ptTxtPctSize.y()) txtPct.Value = format ("W4, AC", String ( SmallInt (nNewPct) ) +"%") endmethod Edit Line: 6 Col: 14

---